home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / SOURCES / ATARI_SRC.ZIP / atari source / FALCON / CPX / GENERAL.TC / CACHE.S < prev    next >
Encoding:
Text File  |  2001-02-10  |  652 b   |  33 lines
  1. *
  2. *    turns the cache on or off
  3. *    or status
  4.  
  5.     .text
  6.     .globl    cacheon
  7.     .globl    cacheoff
  8.     .globl    cacheinq
  9.     
  10.  
  11. CACHE_ON    equ    $00003919
  12. CACHE_OFF    equ    $00000808
  13.  
  14. *
  15. *    donoise    Set console noise bits
  16. *
  17. *    param 0 = click on/off (word)
  18. *    param 1 = bell on/off (word)
  19. *
  20. cacheon:   move.l   #CACHE_ON,d0    ;Enable data/instruc caches 
  21.        .dc.w    $4e7b, $0002    ;MOVEC.L d0,CACR turn on cache
  22.        rts
  23.  
  24. cacheoff:  move.l   #CACHE_OFF,d0    ;Disable data/instruc caches
  25.        .dc.w    $4e7b, $0002    ;MOVEC.L d0,CACR turn off cache
  26.        rts
  27.  
  28. cacheinq:  .dc.w    $4e7a,$0002        ; Inquire data/instruc caches
  29.        rts                ; value returned in D0
  30.        
  31.     .end
  32.  
  33.